home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Svd Messageboard Arcive / ephemery / data / MBPREP.ZIP / X2NAME.PL < prev   
Encoding:
Text File  |  1999-01-30  |  407 b   |  22 lines
  1. $x='';
  2. while (<>) {
  3.    if (/\"MyNum\"/) {
  4.      $x = $_;
  5.      $x =~ s/<INPUT NAME=\"MyNum\" TYPE=\"hidden\" VALUE=\"//i;
  6.      $x =~ s/\".*\s*//;
  7.      $x = substr($x,-8);
  8.     }
  9.    s/\ \;/ /gi;
  10.    s/nbsp;//gi;
  11.    s/<BR>/<BR>\n/gi;
  12.    $z[$i++] = $_;
  13.  
  14. }
  15. print "$x;";
  16. if ($x ne '') {
  17.   $x = ">$x.HTM";
  18.   open(x) || die "$! $x";
  19.   for ($i=0;$i<=$#z;$i++) { print x $z[$i]; }
  20.   close(x);
  21. }
  22.